home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / serial / serializ.inc < prev    next >
Text File  |  1995-03-06  |  4KB  |  77 lines
  1. ' definition for language in multi-language management
  2. Global Const LNG_FRENCH = 1
  3. Global Const LNG_DUTCH = 2
  4. Global Const LNG_GERMAN = 3
  5. Global Const LNG_ENGLISH = 4
  6. Global Const LNG_ITALIAN = 5
  7. Global Const LNG_SPANISH = 6
  8.  
  9. ' definition for message position in multi-language message box
  10. Global Const MB_MESSAGE_LEFT = 0
  11. Global Const MB_MESSAGE_CENTER = 8192
  12. Global Const MB_MESSAGE_RIGHT = 16384
  13.  
  14. ' definition for timeout management in multi-language message box
  15. Global Const MB_TIMEOUT_2 = 32768
  16. Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  17. Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  18. Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  19.  
  20. Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  21. Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  22. Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  23. Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  24. Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  25. Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  26. Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  27. Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  28. Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  29. Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  30. Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  31.  
  32. Global Const MB_DISPLAY_TIMEOUT = 524288
  33.  
  34. ' definition for properties for language management
  35. Global Const RS_CAPTION = 1
  36. Global Const RS_TEXT = 2
  37. Global Const RS_DATAFIELD = 4
  38. Global Const RS_DATASOURCE = 8
  39. Global Const RS_TAG = 16
  40.  
  41. ' structure for splitting path
  42. Type tagSPLITPATH
  43.    nDrive            As String
  44.    nDir              As String
  45.    nName             As String
  46.    nExt              As String
  47. End Type
  48.  
  49. ' structure for serialization
  50. Type tagSERIALDATA
  51.    Description1      As String * 50       'serialization description 1
  52.    Description2      As String * 50       'serialization description 2
  53.    Number            As Long              'serialization number
  54.    dummy             As String * 50       'reserved for future use
  55. End Type
  56.  
  57. Rem Don't Remove It
  58. Declare Sub cDisableFI Lib "time2win.dll" (Ctl As Control)
  59. Declare Sub cEnableFI Lib "time2win.dll" (Ctl As Control)
  60. Declare Function cLngMsgBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer
  61. Declare Sub cLngBoxMsg Lib "time2win.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String)
  62. Declare Function cLngInpBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String
  63. Declare Sub cLngSysMenu Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal hWnd As Integer)
  64. Declare Function cReadCtlLanguage Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  65. Declare Function cIsSerial Lib "time2win.dll" (ByVal file1 As String) As Integer
  66. Declare Function cSerialGet Lib "time2win.dll" (ByVal File As String, SERIALDATA As tagSERIALDATA) As Integer
  67. Declare Function cSerialInc Lib "time2win.dll" (ByVal File As String, ByVal Increment As Long) As Integer
  68. Declare Function cSerialPut Lib "time2win.dll" (ByVal File As String, SERIALDATA As tagSERIALDATA) As Integer
  69. Declare Function cSerialRmv Lib "time2win.dll" (ByVal File As String) As Integer
  70. Declare Sub cChangeChars Lib "time2win.dll" (Txt As String, charSet As String, newCharSet As String)
  71. Declare Function cGetIn Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  72. Declare Function cGetIni Lib "time2win.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  73. Declare Function cEXEnameActiveWindow Lib "time2win.dll" () As String
  74. Declare Function cSplitPath Lib "time2win.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  75. Declare Function cInsertBlocks Lib "time2win.dll" (Txt As String, Insert As String) As String
  76.  
  77.